Private Casting/Casting One.mdf/Docs/Success.dir/00010.ls

Text File | 1997-01-22 | 594 b | 25 lines

on prepareMovie
  global idioma
  puppetSound(0)
  set the visible of sprite 3 to 0
  set the visible of sprite 6 to 0
  repeat with x = 20 to 26
    set the visible of sprite x to 0
  end repeat
  if idioma = "french" then
    set the fileName of castLib "idiomas" to the pathName & "french.cst"
  else
    if idioma = "deutch" then
      set the fileName of castLib "idiomas" to the pathName & "deutch.cst"
    else
      set the fileName of castLib "idiomas" to the pathName & "english.cst"
    end if
  end if
end

on idle
  if not soundBusy(1) then
    puppetSound("success")
  end if
end